Voorbeeld van de instructie End

Dit voorbeeld maakt gebruik van de instructie End om de uitvoering van een programmacode te beδindigen als de gebruiker een ongeldig wachtwoord invoert.

Sub Form_Load
    Dim Password, Pword
    PassWord = "Knal"
    Pword = InputBox("Typ uw wachtwoord")
    If Pword <> PassWord Then
        MsgBox "Sorry, ongeldig wachtwoord"
        End
    End If
End Sub